home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / c / GAPLib.lha / GAPLib / gaplib / Misc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-04  |  374 b   |  11 lines
  1.  
  2. #include <math.h>
  3. #include <GAP.h>
  4. #include "GAPLocal.h"
  5. #ifndef z3H
  6. #define z3H(x) ((x)*(x))
  7. #endif
  8. double q2M(struct Population *t1La,double r9F);double q2M(struct Population *t1La,double r9F)
  9. {int i;double y4K;struct r5X *y4E;y4E = (struct r5X *)l5T(t1La,t7X(PBOX));y4K = 0;
  10. for(i=0;i!=t1La->NumPolys;i++) {y4K += z3H(y4E[i].c8Y-r9F);}return(sqrt(y4K/t1La->NumPolys));
  11. }